home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
jed10.zip
/
WORD2STR.SRC
< prev
Wrap
Text File
|
1993-02-26
|
898b
|
23 lines
;---------------------------------------------------------------
; Word2Str -- Converts a word passed in AX to a string at
; DS:SI
; Last update 3/8/89
;
; 1 entry point:
;
; Word2Str:
; Caller must pass:
; AX : Word to be converted
; DS : Segment of destination string
; SI : Offset of destination string
;---------------------------------------------------------------
Word2Str PROC
mov CX,AX ; Save a copy of convertee in CX
xchg AH,AL ; Swap high and low AX bytes to do high first
call Byte2Str ; Convert AL to string at DS:SI
add SI,2 ; Bump SI to point to second 2 characters
mov AX,CX ; Reload convertee into AX
call Byte2Str ; Convert AL to string at DS:SI
ret ; And we're done!
Word2Str ENDP